home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / k / k1.bat < prev    next >
DOS Batch File  |  1993-01-28  |  5KB  |  346 lines
  1. @echo off
  2. cls
  3.  
  4. :K1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO K2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :K2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO K1
  39. IF ERRORLEVEL 22 GOTO K3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :K3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  66.  
  67. IF ERRORLEVEL 24 GOTO QUIT
  68. IF ERRORLEVEL 23 GOTO K2
  69. IF ERRORLEVEL 22 GOTO K4
  70. IF ERRORLEVEL 21 GOTO 63
  71. IF ERRORLEVEL 20 GOTO 62
  72. IF ERRORLEVEL 19 GOTO 61
  73. IF ERRORLEVEL 18 GOTO 60
  74. IF ERRORLEVEL 17 GOTO 59
  75. IF ERRORLEVEL 16 GOTO 58
  76. IF ERRORLEVEL 15 GOTO 57
  77. IF ERRORLEVEL 14 GOTO 56
  78. IF ERRORLEVEL 13 GOTO 55
  79. IF ERRORLEVEL 12 GOTO 54
  80. IF ERRORLEVEL 11 GOTO 53
  81. IF ERRORLEVEL 10 GOTO 52
  82. IF ERRORLEVEL 9 GOTO 51
  83. IF ERRORLEVEL 8 GOTO 50
  84. IF ERRORLEVEL 7 GOTO 49
  85. IF ERRORLEVEL 6 GOTO 48
  86. IF ERRORLEVEL 5 GOTO 47
  87. IF ERRORLEVEL 4 GOTO 46
  88. IF ERRORLEVEL 3 GOTO 45
  89. IF ERRORLEVEL 2 GOTO 44
  90. IF ERRORLEVEL 1 GOTO 43
  91.  
  92.  
  93.  
  94. :K4
  95. TYPE 4.ANS
  96. ASK /FE "" ABCDEFGHIJK23
  97.  
  98. IF ERRORLEVEL 13 GOTO QUIT
  99. IF ERRORLEVEL 12 GOTO K3
  100. IF ERRORLEVEL 11 GOTO 74
  101. IF ERRORLEVEL 10 GOTO 73
  102. IF ERRORLEVEL 9 GOTO 72
  103. IF ERRORLEVEL 8 GOTO 71
  104. IF ERRORLEVEL 7 GOTO 70
  105. IF ERRORLEVEL 6 GOTO 69
  106. IF ERRORLEVEL 5 GOTO 68
  107. IF ERRORLEVEL 4 GOTO 67
  108. IF ERRORLEVEL 3 GOTO 66
  109. IF ERRORLEVEL 2 GOTO 65
  110. IF ERRORLEVEL 1 GOTO 64
  111.  
  112. :1
  113. CSHOW KANDI.GIF+
  114. GOTO K1
  115. :2
  116. CSHOW KANDINIP.GIF+
  117. GOTO K1
  118. :3
  119. CSHOW KARA1.GIF+
  120. GOTO K1
  121. :4
  122. CSHOW KARA3.GIF+
  123. GOTO K1
  124. :5
  125. CSHOW KARA4.GIF+
  126. GOTO K1
  127. :6
  128. CSHOW KARA8.GIF+
  129. GOTO K1
  130. :7
  131. CSHOW KARA9.GIF+
  132. GOTO K1
  133. :8
  134. CSHOW KAREN.GIF+
  135. GOTO K1
  136. :9
  137. CSHOW KAREN10.GIF+
  138. GOTO K1
  139. :10
  140. CSHOW KARENM3.GIF+
  141. GOTO K1
  142. :11
  143. CSHOW KARENM4.GIF+
  144. GOTO K1
  145. :12
  146. CSHOW KARENV.GIF+
  147. GOTO K1
  148. :13
  149. CSHOW KAREN_F5.GIF+
  150. GOTO K1
  151. :14
  152. CSHOW KAREN_S1.GIF+
  153. GOTO K1
  154. :15
  155. CSHOW KASC003.GIF+
  156. GOTO K1
  157. :16
  158. CSHOW KASC005.GIF+
  159. GOTO K1
  160. :17
  161. CSHOW KASC02.GIF+
  162. GOTO K1
  163. :18
  164. CSHOW KASCHA1.GIF+
  165. GOTO K1
  166. :19
  167. CSHOW KASCHA_X.GIF+
  168. GOTO K1
  169. :20
  170. CSHOW KASHA_1.GIF+
  171. GOTO K1
  172. :21
  173. CSHOW KASSI.GIF+
  174. GOTO K1
  175. :22
  176. CSHOW KATHYN.GIF+
  177. GOTO K2
  178. :23
  179. CSHOW KATJA1.GIF+
  180. GOTO K2
  181. :24
  182. CSHOW KATSHOWR.GIF+
  183. GOTO K2
  184. :25
  185. CSHOW KC3.GIF+
  186. GOTO K2
  187. :26
  188. CSHOW KEPT.GIF+
  189. GOTO K2
  190. :27
  191. CSHOW KG_341.GIF+
  192. GOTO K2
  193. :28
  194. CSHOW KG_396.GIF+
  195. GOTO K2
  196. :29
  197. CSHOW KG_A416.GIF+
  198. GOTO K2
  199. :30
  200. CSHOW KG_A430.GIF+
  201. GOTO K2
  202. :31
  203. CSHOW KG_A468.GIF+
  204. GOTO K2
  205. :32
  206. CSHOW KG_A616.GIF+
  207. GOTO K2
  208. :33
  209. CSHOW KIMBER.GIF+
  210. GOTO K2
  211. :34
  212. CSHOW KIMM.GIF+
  213. GOTO K2
  214. :35
  215. CSHOW KIMMC.GIF+
  216. GOTO K2
  217. :36
  218. CSHOW KIMMER1.GIF+
  219. GOTO K2
  220. :37
  221. CSHOW KIMSUNG.GIF+
  222. GOTO K2
  223. :38
  224. CSHOW KIM_4_G.GIF+
  225. GOTO K2
  226. :39
  227. CSHOW KISS_ME.GIF+
  228. GOTO K2
  229. :40
  230. CSHOW KJ09.GIF+
  231. GOTO K2
  232. :41
  233. CSHOW KJ17.GIF+
  234. GOTO K2
  235. :42
  236. CSHOW KJ19.GIF+
  237. GOTO K2
  238. :43
  239. CSHOW KK_R_000.GIF+
  240. GOTO K3
  241. :44
  242. CSHOW KK_R_048.GIF+
  243. GOTO K3
  244. :45
  245. CSHOW KK_R_109.GIF+
  246. GOTO K3
  247. :46
  248. CSHOW KNEELING.GIF+
  249. GOTO K3
  250. :47
  251. CSHOW KNOCKS.GIF+
  252. GOTO K3
  253. :48
  254. CSHOW KOREA1.GIF+
  255. GOTO K3
  256. :49
  257. CSHOW KOREA27.GIF+
  258. GOTO K3
  259. :50
  260. CSHOW KOREA3.GIF+
  261. GOTO K3
  262. :51
  263. CSHOW KOREA7.GIF+
  264. GOTO K3
  265. :52
  266. CSHOW KRISTEN3.GIF+
  267. GOTO K3
  268. :53
  269. CSHOW KRISTP.GIF+
  270. GOTO K3
  271. :54
  272. CSHOW KXAF0080.GIF+
  273. GOTO K3
  274. :55
  275. CSHOW KXDN0012.GIF+
  276. GOTO K3
  277. :56
  278. CSHOW KXFF0129.GIF+
  279. GOTO K3
  280. :57
  281. CSHOW KXFF0235.GIF+
  282. GOTO K3
  283. :58
  284. CSHOW KXFN0142.GIF+
  285. GOTO K3
  286. :59
  287. CSHOW KXIF0015.GIF+
  288. GOTO K3
  289. :60
  290. CSHOW KXIF0201.GIF+
  291. GOTO K3
  292. :61
  293. CSHOW KXIN0009.GIF+
  294. GOTO K3
  295. :62
  296. CSHOW KXIN0011.GIF+
  297. GOTO K3
  298. :63
  299. CSHOW KXLF0090.GIF+
  300. GOTO K3
  301. :64
  302. CSHOW KXLF0151.GIF+
  303. GOTO K4
  304. :65
  305. CSHOW KXPF0028.GIF+
  306. GOTO K4
  307. :66
  308. CSHOW KXUF0027.GIF+
  309. GOTO K4
  310. :67
  311. CSHOW KYOKO01.GIF+
  312. GOTO K4
  313. :68
  314. CSHOW KYOKO02.GIF+
  315. GOTO K4
  316. :69
  317. CSHOW KYOKO03.GIF+
  318. GOTO K4
  319. :70
  320. CSHOW KYOKO08.GIF+
  321. GOTO K4
  322. :71
  323. CSHOW KYOKO09.GIF+
  324. GOTO K4
  325. :72
  326. CSHOW K_M_02.GIF+
  327. GOTO K4
  328. :73
  329. CSHOW K_M_03.GIF+
  330. GOTO K4
  331. :74
  332. CSHOW K_M_3.GIF+
  333. GOTO K4
  334.  
  335. :SELECTION
  336. CD\SETUP
  337. FSTORM31
  338.  
  339. :QUIT
  340. CD\SETUP
  341. FSTORM31
  342.  
  343.  
  344.  
  345.  
  346.